dir("C:/Users/Rommel.Dks/Desktop/r")
library(openxlsx)
R3=read.table("C:/Users/Rommel.Dks/Desktop/r/ADdata1.txt")
i <- rownames(R3)
R3 <- cbind(i, R3)
R33=read.table("C:/Users/Rommel.Dks/Desktop/r/ADdata4.TXT")
R31=read.csv("C:/Users/Rommel.Dks/Desktop/r/ADdata2.CSV")
R32=read.xlsx("C:/Users/Rommel.Dks/Desktop/r/ADdata3.xlsx",sheet=1)
i <- rownames(R33) 
R33 <- cbind(i, R33)
colnames(R31)[1] <- 'i'
colnames(R32)[1] <- 'i'
B=merge(R32,R31,by='i')
A=merge(R3,R33,by='i')
c=merge(A,B,by='i')
write.csv(c,file="C:/Users/Rommel.Dks/Desktop/r/data.csv")
write.table(c,file="C:/Users/Rommel.Dks/Desktop/r/data.txt")
write.xlsx(c,file="C:/Users/Rommel.Dks/Desktop/r/dataf.xls")



